home *** CD-ROM | disk | FTP | other *** search
/ Dr. Windows 3 / dr win3.zip / dr win3 / DATABASE / FOXRYAN.ZIP / VERIFY3.PRG < prev    next >
Text File  |  1993-07-05  |  1KB  |  54 lines
  1. for m.i = 1 to 22
  2.     m.form = "form" + alltrim(str(m.i))
  3.     m.dbfile = m.form + ".dbf"
  4.     for m.j = 0 to 13
  5.         m.letter = iif(m.j = 0, "", chr(m.j-1+asc("A")))
  6.         m.scrfile = m.form +  alltrim(m.letter) + ".scx"
  7.         ?m.scrfile
  8.         select 0
  9.         if not file(m.scrfile)
  10.             exit
  11.         endif
  12.         use &scrfile alias screen
  13.         go top
  14.         locate for screen.objtype=12
  15.         do while not eof()
  16.             if inkey()=27
  17.                 suspend
  18.             endif
  19.             delete file temp.tmp
  20.             copy memo screen.valid to temp.tmp
  21.             m.fp = fopen("temp.tmp", 0)
  22.             m.str = fread(m.fp, 100)
  23.             =fclose (m.fp)
  24.             m.k = strindex(upper(m.str), "FORM") 
  25.             if m.k>0
  26.                 m.l = strindex(upper(substr(m.str, m.k, len(str)-i+1)), ".") + m.k -1
  27.                 m.after = right(m.str, len(m.str)-m.l + 1)
  28.                 m.outstr = left(m.str, m.k+3) + alltrim(str(m.i)) + chr(m.j+asc("A"))) + m.after
  29.                 m.fp = fopen("temp.tmp", 1)
  30.                 =fwrite(m.fp, iif(screen.objtype=2, upper(m.outstr), m.outstr))
  31.                 =fclose(m.fp)
  32.                 append memo screen.valid from temp.tmp overwrite
  33.             endif
  34.             continue
  35.         enddo
  36.         use
  37.     endfor
  38. endfor
  39.     
  40.     
  41. function strindex
  42. parameters bigstr, str
  43. private l, i, bl
  44.  
  45. l = len(str)
  46. bl = len(bigstr)
  47. for i=1 to 1+bl-l
  48.     if substr(bigstr, i, l) = str
  49.         return i
  50.     endif
  51. next
  52. return 0
  53.  
  54.